inherited frmFormasPagamento: TfrmFormasPagamento
  Left = 193
  Top = 124
  Caption = ''
  ClientHeight = 552
  ClientWidth = 768
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 515
    Width = 768
  end
  inherited Panel2: TPanel
    Width = 768
    Height = 515
    inherited Panel3: TPanel
      Width = 766
      Caption = 'Formas de Pagamento'
      inherited GroupBox1: TGroupBox
        Left = 671
        Width = 91
        inherited edtRegistro: TEdit
          Width = 91
        end
      end
    end
    inherited Panel4: TPanel
      Width = 766
      Height = 473
      object Label1: TLabel [0]
        Left = 8
        Top = 8
        Width = 33
        Height = 13
        Caption = 'C'#243'digo'
      end
      object Label2: TLabel [1]
        Left = 45
        Top = 9
        Width = 163
        Height = 13
        Caption = 'Descri'#231#227'o da forma de pagamento'
      end
      object Label5: TLabel [2]
        Left = 421
        Top = 11
        Width = 86
        Height = 13
        Caption = 'Dias ent. Parcelas'
      end
      object Label6: TLabel [3]
        Left = 349
        Top = 10
        Width = 64
        Height = 13
        Caption = 'Qtd. Parcelas'
      end
      object Label7: TLabel [4]
        Left = 8
        Top = 176
        Width = 81
        Height = 13
        Caption = 'Tipo de Registro:'
      end
      object Label8: TLabel [5]
        Left = 160
        Top = 176
        Width = 74
        Height = 13
        Caption = 'C'#243'digo no ECF:'
        FocusControl = DBEditCodigoECF
      end
      object DBEdit_Codigo: TDBEdit [6]
        Left = 7
        Top = 24
        Width = 34
        Height = 21
        Hint = 'Codigo da forma de pagamento'
        CharCase = ecUpperCase
        DataField = 'FPG_CODIGO'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnExit = DBEdit_CodigoExit
      end
      object DBEdit_Descricao: TDBEdit [7]
        Left = 44
        Top = 24
        Width = 299
        Height = 21
        Hint = 'Descri'#231#227'o da forma de pagamento.'
        CharCase = ecUpperCase
        DataField = 'FPG_NOME'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object DBEdit_Dias_Parcelas: TDBEdit [8]
        Left = 421
        Top = 24
        Width = 89
        Height = 21
        Hint = 'Quantidade de dias entre parcelas'
        CharCase = ecUpperCase
        DataField = 'FPG_DIASPARCELAS'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 3
      end
      object DBEdit_Qtd_Parcelas: TDBEdit [9]
        Left = 348
        Top = 24
        Width = 67
        Height = 21
        Hint = 'Quantidade de parcelas'
        CharCase = ecUpperCase
        DataField = 'FPG_QTDPARCELAS'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object GroupBox2: TGroupBox [10]
        Left = 9
        Top = 48
        Width = 418
        Height = 63
        Caption = 'Tipo de Pagamento'
        Color = clBtnFace
        ParentColor = False
        TabOrder = 4
        object Label3: TLabel
          Left = 10
          Top = 13
          Width = 33
          Height = 13
          Caption = 'C'#243'digo'
        end
        object Label4: TLabel
          Left = 69
          Top = 15
          Width = 154
          Height = 13
          Caption = 'Descri'#231#227'o do tipo de pagamento'
        end
        object DBEdit_Codifo_Tipo: TDBEdit
          Left = 9
          Top = 27
          Width = 34
          Height = 21
          Hint = 'Codigo do Tipo de Pagamento'
          CharCase = ecUpperCase
          DataField = 'FPG_CODTIPOPAG'
          DataSource = DtSrc
          Enabled = False
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnExit = DBEdit_Codifo_TipoExit
        end
        object Btn_TipoPagamento: TBitBtn
          Left = 45
          Top = 26
          Width = 25
          Height = 23
          Hint = 'Pesquisa tipo de pagamento'
          Caption = '...'
          Enabled = False
          TabOrder = 1
          TabStop = False
          OnClick = Btn_TipoPagamentoClick
        end
        object Edit_Descricao_Tipo: TEdit
          Left = 69
          Top = 28
          Width = 339
          Height = 21
          Hint = 'Exibe a descri'#231#227'o ecf .'
          TabStop = False
          CharCase = ecUpperCase
          Color = clBtnFace
          Ctl3D = True
          Enabled = False
          ParentCtl3D = False
          ParentShowHint = False
          ReadOnly = True
          ShowHint = True
          TabOrder = 2
        end
      end
      object DbrgParcelado: TDBRadioGroup [11]
        Left = 432
        Top = 48
        Width = 79
        Height = 63
        Hint = 'Selecione se a forma de pagamento e parcelada'
        Caption = 'Parcelado'
        DataField = 'FPG_PARCELADO'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&Sim'
          '&N'#227'o')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        TabStop = True
        Values.Strings = (
          'S'
          'N')
      end
      object DbrgParcIguais: TDBRadioGroup [12]
        Left = 516
        Top = 48
        Width = 99
        Height = 63
        Hint = 'Selecione se a forma de pagamento tem parcelas iguais'
        Caption = 'Parcelas Iguais'
        DataField = 'FPG_PARCIGUAIS'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&Sim'
          '&N'#227'o')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 6
        TabStop = True
        Values.Strings = (
          'S'
          'N')
      end
      object DbrgEntrada: TDBRadioGroup [13]
        Left = 620
        Top = 48
        Width = 81
        Height = 63
        Hint = 'Selecione se a forma de pagamento possui entrada'
        Caption = 'Entrada'
        DataField = 'FPG_ENTRADA'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&Sim'
          '&N'#227'o')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        TabStop = True
        Values.Strings = (
          'S'
          'N')
      end
      object DbrgTefGerenciador: TDBRadioGroup [14]
        Left = 125
        Top = 111
        Width = 353
        Height = 64
        Hint = 'Informe o tipo de gerenciador TEF'
        Caption = 'Gerenciador Tef'
        Columns = 3
        DataField = 'FPG_TEFGERENC'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&Banese'
          '&Amex, Rede, Visa'
          '&Hipercard'
          '&Cheq.Eletr'#244'nico'
          'TEF Dedicado &X25'
          'TEF Dedicado &IP'
          '&N'#227'o existe')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        TabStop = True
        Values.Strings = (
          'B'
          'G'
          'H'
          'C'
          'X'
          'I'
          'N')
      end
      object DbrgVinculado: TDBRadioGroup [15]
        Left = 9
        Top = 112
        Width = 110
        Height = 63
        Hint = 'Selecione se a forma de pagamento esta vinculado ao TEF '
        Caption = 'Vinculado'
        DataField = 'FPG_VINCULADO'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&Com TEF'
          '&Sem TEF'
          'Cart'#227'o &Pr'#243'prio')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 8
        TabStop = True
        Values.Strings = (
          'S'
          'N'
          'P')
      end
      inherited DBGrid1: TDBGrid
        Top = 224
        Width = 758
        Height = 226
        TabOrder = 12
      end
      inherited SbHints: TStatusBar
        Top = 450
        Width = 758
      end
      object DBRG_TipoCartao: TDBRadioGroup
        Left = 487
        Top = 111
        Width = 183
        Height = 64
        Hint = 'Tipo de cart'#227'o'
        Caption = 'Tipo de Cart'#227'o'
        Columns = 2
        DataField = 'FPG_TIPOCARTAO'
        DataSource = DtSrc
        Enabled = False
        Items.Strings = (
          '&Credito'
          '&D'#233'bito'
          '&Private Label'
          '&N'#227'o existe')
        ParentShowHint = False
        ShowHint = True
        TabOrder = 10
        TabStop = True
        Values.Strings = (
          'C'
          'D'
          'P'
          'N')
      end
      object DBEditCodigoECF: TDBEdit
        Left = 160
        Top = 192
        Width = 30
        Height = 21
        DataField = 'FPG_CODIGOECF'
        DataSource = DtSrc
        Enabled = False
        TabOrder = 11
      end
      object DBLkpTipoRegistro: TDBLookupComboBox
        Left = 8
        Top = 192
        Width = 145
        Height = 21
        DataField = 'FPG_TIPOREGISTRO'
        DataSource = DtSrc
        Enabled = False
        KeyField = 'Codigo'
        ListField = 'Descricao'
        ListSource = dsTiposRegistros
        TabOrder = 14
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Formas_Pagamentos
    Left = 184
    Top = 264
  end
  object SQLC_Formas_Pagamentos: TSQLClientDataSet
    CommandText = 'select * from FORMASPAGAMENTO where fpg_codigo=:pcodigo;'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pcodigo'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 91
    Top = 328
    object SQLC_Formas_PagamentosFPG_CODIGO: TSmallintField
      FieldName = 'FPG_CODIGO'
      Required = True
    end
    object SQLC_Formas_PagamentosFPG_NOME: TStringField
      FieldName = 'FPG_NOME'
      Required = True
      Size = 40
    end
    object SQLC_Formas_PagamentosFPG_CODTIPOPAG: TStringField
      FieldName = 'FPG_CODTIPOPAG'
      Size = 1
    end
    object SQLC_Formas_PagamentosFPG_PARCELADO: TStringField
      FieldName = 'FPG_PARCELADO'
      Size = 1
    end
    object SQLC_Formas_PagamentosFPG_PARCIGUAIS: TStringField
      FieldName = 'FPG_PARCIGUAIS'
      Size = 1
    end
    object SQLC_Formas_PagamentosFPG_DIASPARCELAS: TSmallintField
      FieldName = 'FPG_DIASPARCELAS'
    end
    object SQLC_Formas_PagamentosFPG_QTDPARCELAS: TSmallintField
      FieldName = 'FPG_QTDPARCELAS'
    end
    object SQLC_Formas_PagamentosFPG_ENTRADA: TStringField
      FieldName = 'FPG_ENTRADA'
      Size = 1
    end
    object SQLC_Formas_PagamentosFPG_VINCULADO: TStringField
      FieldName = 'FPG_VINCULADO'
      Size = 1
    end
    object SQLC_Formas_PagamentosFPG_TIPOCARTAO: TStringField
      FieldName = 'FPG_TIPOCARTAO'
      Size = 1
    end
    object SQLC_Formas_PagamentosFPG_TEFGERENC: TStringField
      FieldName = 'FPG_TEFGERENC'
      Size = 1
    end
    object SQLC_Formas_PagamentosFPG_TIPOREGISTRO: TStringField
      FieldName = 'FPG_TIPOREGISTRO'
      FixedChar = True
      Size = 3
    end
    object SQLC_Formas_PagamentosFPG_CODIGOECF: TStringField
      FieldName = 'FPG_CODIGOECF'
      FixedChar = True
      Size = 2
    end
  end
  object CDS_TIPOSREGISTROS: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 145
    Top = 393
    Data = {
      530000009619E0BD010000001800000002000000000003000000530006436F64
      69676F0100490004000100055749445448020002000300094465736372696361
      6F0100490000000100055749445448020002001E000000}
    object CDS_TIPOSREGISTROSCodigo: TStringField
      FieldName = 'Codigo'
      ProviderFlags = [pfInWhere, pfInKey]
      Required = True
      Size = 3
    end
    object CDS_TIPOSREGISTROSDescricao: TStringField
      FieldName = 'Descricao'
      Size = 30
    end
  end
  object dsTiposRegistros: TDataSource
    DataSet = CDS_TIPOSREGISTROS
    Left = 249
    Top = 417
  end
end
